Napisati program kojim se za date nizove A i B duzine n formira niz C
duzine n ciju su elementi jednaki proizvodu odgovarajucih elemenata niza A i B.


Sub zad5()
Dim A(100) As Double, B(100) As Double, n As Long, i As Long, C(100) As Double
Open "A.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, A(i)
Next
Close #1
Open "B.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, B(i)
Next
Close #1
For i = 1 To n
C(i) = A(i) * B(i)
Next
Open "C.txt" For Output As #1
For i = 1 To n
Print #1, C(i);
Next
Close #1
End Sub
